/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / BlitzList / BlitzListFiles / BlitzGet / BlitzGet1.0.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 65 3b 42 6c 69 74 7a 47 | 65 74 20 31 2e 30 20 73 |e;BlitzG|et 1.0 s|
|00000010| 69 6d 70 6c 65 20 48 54 | 54 50 2f 31 2e 30 20 61 |imple HT|TP/1.0 a|
|00000020| 63 63 65 73 73 20 28 63 | 29 20 31 39 39 38 20 62 |ccess (c|) 1998 b|
|00000030| 79 20 4a 65 72 6f 65 6e | 20 50 65 74 72 69 63 6b |y Jeroen| Petrick|
|00000040| 20 28 44 4a 52 6f 6f 4e | 40 78 73 34 61 6c 6c 2e | (DJRooN|@xs4all.|
|00000050| 6e 6c 29 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nl).;---|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 00 3b 20 53 74 61 6e 64 | 61 72 64 20 42 6c 69 74 |.; Stand|ard Blit|
|000000a0| 7a 20 54 43 50 20 46 75 | 6e 63 74 69 6f 6e 73 20 |z TCP Fu|nctions |
|000000b0| 56 31 2e 36 20 62 79 20 | 50 61 75 6c 20 42 75 72 |V1.6 by |Paul Bur|
|000000c0| 6b 65 79 20 28 63 29 31 | 39 39 37 00 3b 20 43 6f |key (c)1|997.; Co|
|000000d0| 6d 70 69 6c 65 64 20 77 | 69 74 68 20 68 65 6c 70 |mpiled w|ith help|
|000000e0| 20 66 72 6f 6d 20 45 72 | 63 6f 6c 65 20 53 70 69 | from Er|cole Spi|
|000000f0| 74 65 72 69 20 61 6e 64 | 20 41 6e 74 6f 6e 20 52 |teri and| Anton R|
|00000100| 65 69 6e 61 75 65 72 00 | 3b 20 59 6f 75 20 6d 75 |einauer.|; You mu|
|00000110| 73 74 20 68 61 76 65 20 | 74 68 65 20 62 73 64 73 |st have |the bsds|
|00000120| 6f 63 6b 65 74 2e 6c 69 | 62 72 61 72 79 20 73 65 |ocket.li|brary se|
|00000130| 74 75 70 20 69 6e 20 42 | 6c 69 74 7a 00 3b 20 43 |tup in B|litz.; C|
|00000140| 6f 6e 74 61 63 74 20 6d | 65 20 61 74 20 70 61 75 |ontact m|e at pau|
|00000150| 6c 40 73 6e 65 65 63 68 | 2e 64 65 6d 6f 6e 2e 63 |l@sneech|.demon.c|
|00000160| 6f 2e 75 6b 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |o.uk.;--|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 00 00 80 13 20 22 54 | 43 50 46 75 6e 63 73 4a |-.... "T|CPFuncsJ|
|000001b0| 50 2e 62 62 22 00 00 80 | c3 00 80 06 20 45 6d 70 |P.bb"...|.... Emp|
|000001c0| 74 79 4c 69 6e 65 00 fc | 95 20 22 42 6c 69 74 7a |tyLine..|. "Blitz|
|000001d0| 47 65 74 20 31 2e 30 20 | 53 69 6d 70 6c 65 20 48 |Get 1.0 |Simple H|
|000001e0| 54 54 50 2f 31 2e 30 20 | 61 63 63 65 73 73 20 28 |TTP/1.0 |access (|
|000001f0| 63 29 20 31 39 39 38 20 | 4a 65 72 6f 65 6e 20 50 |c) 1998 |Jeroen P|
|00000200| 65 74 72 69 63 6b 22 2b | dc 86 28 31 30 29 00 fc |etrick"+|..(10)..|
|00000210| 95 20 22 28 45 2d 4d 61 | 69 6c 20 66 6f 72 20 63 |. "(E-Ma|il for c|
|00000220| 6f 6d 6d 65 6e 74 73 20 | 6f 72 20 73 6f 75 72 63 |omments |or sourc|
|00000230| 65 20 63 6f 64 65 20 64 | 6a 72 6f 6f 6e 40 78 73 |e code d|jroon@xs|
|00000240| 34 61 6c 6c 2e 6e 6c 29 | 22 2b dc 86 28 31 30 29 |4all.nl)|"+..(10)|
|00000250| 00 00 80 0b 20 b5 01 3d | 30 20 80 21 20 80 05 20 |.... ..=|0 .! .. |
|00000260| 55 73 61 67 65 00 80 0b | 20 b5 01 3c 32 20 80 21 |Usage...| ..<2 .!|
|00000270| 20 80 05 20 55 73 61 67 | 65 00 00 66 24 3d b5 02 | .. Usag|e..f$=..|
|00000280| 28 31 29 00 00 6f 75 74 | 66 69 6c 65 24 3d b5 02 |(1)..out|file$=..|
|00000290| 28 32 29 00 00 80 0b 20 | be 15 28 6f 75 74 66 69 |(2).... |..(outfi|
|000002a0| 6c 65 24 29 20 80 21 20 | 80 05 20 41 6c 6c 72 65 |le$) .! |.. Allre|
|000002b0| 61 64 79 00 80 0b 20 dc | 98 28 dc 83 28 66 24 2c |ady... .|.(..(f$,|
|000002c0| 31 2c 37 29 29 3c 3e 22 | 48 54 54 50 3a 2f 2f 22 |1,7))<>"|HTTP://"|
|000002d0| 20 80 21 20 80 05 20 4f | 6e 6c 79 5f 68 74 74 70 | .! .. O|nly_http|
|000002e0| 00 80 0b 20 dc 8f 28 66 | 24 29 3c 31 30 20 80 21 |... ..(f|$)<10 .!|
|000002f0| 20 80 05 20 4e 6f 74 5f | 56 61 6c 69 64 00 00 00 | .. Not_|Valid...|
|00000300| 6c 69 62 2e 6c 3d fe cf | 28 22 62 73 64 73 6f 63 |lib.l=..|("bsdsoc|
|00000310| 6b 65 74 2e 6c 69 62 72 | 61 72 79 22 2c 30 29 00 |ket.libr|ary",0).|
|00000320| 80 0b 20 6c 69 62 3d 30 | 20 80 21 20 80 05 20 4e |.. lib=0| .! .. N|
|00000330| 6f 5f 74 63 70 00 80 0b | 20 6c 69 62 3c 3e 30 20 |o_tcp...| lib<>0 |
|00000340| 80 21 20 fe bb 28 6c 69 | 62 29 00 00 00 00 68 3d |.! ..(li|b)....h=|
|00000350| dc 89 28 66 24 2c 22 2f | 22 2c 38 29 00 68 6f 73 |..(f$,"/|",8).hos|
|00000360| 74 24 3d dc 83 28 66 24 | 2c 38 2c 68 2d 38 29 00 |t$=..(f$|,8,h-8).|
|00000370| 64 6f 63 24 3d dc 83 28 | 66 24 2c 68 2c dc 8f 28 |doc$=..(|f$,h,..(|
|00000380| 66 24 29 29 00 00 70 6f | 72 74 2e 6c 3d 38 30 20 |f$))..po|rt.l=80 |
|00000390| 3b 20 73 74 61 6e 64 61 | 72 64 20 68 74 74 70 20 |; standa|rd http |
|000003a0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 70 6f 72 74 00 |connecti|on port.|
|000003b0| 00 80 06 20 45 6d 70 74 | 79 4c 69 6e 65 00 fc 95 |... Empt|yLine...|
|000003c0| 20 22 53 74 61 74 69 73 | 74 69 63 73 22 2b dc 86 | "Statis|tics"+..|
|000003d0| 28 31 30 29 00 80 06 20 | 45 6d 70 74 79 4c 69 6e |(10)... |EmptyLin|
|000003e0| 65 00 fc 95 20 22 50 72 | 6f 74 6f 63 6f 6c 20 3a |e... "Pr|otocol :|
|000003f0| 20 22 2b dc 83 28 66 24 | 2c 31 2c 37 29 2b dc 86 | "+..(f$|,1,7)+..|
|00000400| 28 31 30 29 00 fc 95 20 | 22 48 6f 73 74 20 20 20 |(10)... |"Host   |
|00000410| 20 20 3a 20 22 2b 68 6f | 73 74 24 2b dc 86 28 31 |  : "+ho|st$+..(1|
|00000420| 30 29 00 fc 95 20 22 50 | 61 74 68 20 20 20 20 20 |0)... "P|ath     |
|00000430| 3a 20 22 2b 64 6f 63 24 | 2b dc 86 28 31 30 29 00 |: "+doc$|+..(10).|
|00000440| fc 95 20 22 50 6f 72 74 | 20 20 20 20 20 3a 20 22 |.. "Port|     : "|
|00000450| 2b dd 83 28 70 6f 72 74 | 29 2b dc 86 28 31 30 29 |+..(port|)+..(10)|
|00000460| 00 fc 95 20 22 46 69 6c | 65 6e 61 6d 65 20 3a 20 |... "Fil|ename : |
|00000470| 22 2b 6f 75 74 66 69 6c | 65 24 2b dc 86 28 31 30 |"+outfil|e$+..(10|
|00000480| 29 00 00 64 24 3d 22 47 | 45 54 20 22 2b 66 24 00 |)..d$="G|ET "+f$.|
|00000490| 00 80 06 20 45 6d 70 74 | 79 4c 69 6e 65 00 fc 95 |... Empt|yLine...|
|000004a0| 20 22 4d 61 6b 69 6e 67 | 20 43 6f 6e 6e 65 63 74 | "Making| Connect|
|000004b0| 69 6f 6e 20 74 6f 20 22 | 2b 68 6f 73 74 24 2b dc |ion to "|+host$+.|
|000004c0| 86 28 31 30 29 00 00 80 | 0b 20 43 6f 6e 6e 65 63 |.(10)...|. Connec|
|000004d0| 74 54 43 50 7b 68 6f 73 | 74 24 2c 70 6f 72 74 7d |tTCP{hos|t$,port}|
|000004e0| 20 20 20 20 20 20 20 3b | 20 63 6f 6e 6e 65 63 74 |       ;| connect|
|000004f0| 20 74 6f 20 68 6f 73 74 | 24 20 61 74 20 70 6f 72 | to host|$ at por|
|00000500| 74 20 38 30 00 00 00 20 | 20 fc 95 20 22 43 6f 6e |t 80... | .. "Con|
|00000510| 6e 65 63 74 65 64 20 74 | 6f 20 22 2b 68 6f 73 74 |nected t|o "+host|
|00000520| 24 2b 22 20 61 74 20 70 | 6f 72 74 20 38 30 2e 22 |$+" at p|ort 80."|
|00000530| 2b dc 86 28 31 30 29 00 | 20 20 4e 50 72 69 6e 74 |+..(10).|  NPrint|
|00000540| 54 43 50 7b 64 24 2b dc | 86 28 31 33 29 2b dc 86 |TCP{d$+.|.(13)+..|
|00000550| 28 31 30 29 7d 20 3b 73 | 65 6e 64 20 72 65 71 75 |(10)} ;s|end requ|
|00000560| 65 73 74 20 64 61 74 61 | 20 74 6f 20 74 63 70 00 |est data| to tcp.|
|00000570| 20 20 fc 95 20 22 53 65 | 6e 64 69 6e 67 20 52 65 |  .. "Se|nding Re|
|00000580| 71 75 65 73 74 22 2b dc | 86 28 31 30 29 00 00 20 |quest"+.|.(10).. |
|00000590| 20 80 06 20 43 68 65 63 | 6b 44 61 74 61 00 00 20 | .. Chec|kData.. |
|000005a0| 20 fc 95 20 22 41 6c 6c | 20 64 6f 6e 65 2e 22 2b | .. "All| done."+|
|000005b0| dc 86 28 31 30 29 00 20 | 20 80 06 20 45 6d 70 74 |..(10). | .. Empt|
|000005c0| 79 4c 69 6e 65 00 00 20 | 80 22 20 80 05 20 4e 6f |yLine.. |." .. No|
|000005d0| 53 65 72 76 65 72 00 00 | 80 02 20 80 0b 00 00 00 |Server..|.. .....|
|000005e0| 2e 65 69 6e 64 65 00 fc | 95 20 22 43 6c 6f 73 69 |.einde..|. "Closi|
|000005f0| 6e 67 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 2e 22 2b |ng conne|ction."+|
|00000600| dc 86 28 31 30 29 00 80 | 06 20 45 6d 70 74 79 4c |..(10)..|. EmptyL|
|00000610| 69 6e 65 00 43 6c 6f 73 | 65 54 43 50 7b 7d 20 3b |ine.Clos|eTCP{} ;|
|00000620| 20 63 6c 6f 73 65 20 73 | 6f 63 6b 65 74 00 00 00 | close s|ocket...|
|00000630| 80 02 00 00 00 2e 43 68 | 65 63 6b 44 61 74 61 00 |......Ch|eckData.|
|00000640| 20 20 78 74 63 70 24 3d | 22 22 00 20 20 74 63 70 |  xtcp$=|"".  tcp|
|00000650| 24 3d 22 22 00 20 20 6d | 61 78 73 69 7a 65 3d 32 |$="".  m|axsize=2|
|00000660| 30 34 38 20 3b 20 6d 61 | 78 20 6c 65 6e 67 68 74 |048 ; ma|x lenght|
|00000670| 20 6f 66 20 73 74 72 69 | 6e 67 20 74 6f 20 67 65 | of stri|ng to ge|
|00000680| 74 00 00 20 20 80 bb 00 | 20 20 20 20 74 63 70 24 |t..  ...|    tcp$|
|00000690| 3d 52 65 61 64 54 43 50 | 7b 6d 61 78 73 69 7a 65 |=ReadTCP|{maxsize|
|000006a0| 7d 00 20 20 80 bc 20 74 | 63 70 24 3c 3e 22 22 00 |}.  .. t|cp$<>"".|
|000006b0| 00 20 20 fc 95 20 22 52 | 65 63 65 69 76 69 6e 67 |.  .. "R|eceiving|
|000006c0| 20 61 6e 64 20 77 72 69 | 74 69 6e 67 20 64 61 74 | and wri|ting dat|
|000006d0| 61 22 2b dc 86 28 31 30 | 29 00 00 20 20 80 37 20 |a"+..(10|)..  .7 |
|000006e0| 32 30 30 20 3b 20 67 69 | 76 65 20 62 75 66 66 65 |200 ; gi|ve buffe|
|000006f0| 72 73 20 61 20 63 68 61 | 6e 63 65 20 74 6f 20 66 |rs a cha|nce to f|
|00000700| 69 6c 6c 2c 20 6e 65 65 | 64 65 64 20 6f 6e 20 6d |ill, nee|ded on m|
|00000710| 79 20 30 36 30 2b 33 33 | 6b 36 21 00 00 80 0b 20 |y 060+33|k6!.... |
|00000720| be 12 28 30 2c 6f 75 74 | 66 69 6c 65 24 29 00 20 |..(0,out|file$). |
|00000730| 20 be 07 20 30 00 20 20 | dd 81 20 74 63 70 24 00 | .. 0.  |.. tcp$.|
|00000740| 00 20 20 80 bb 00 20 20 | 20 80 37 20 31 30 20 3b |.  ...  | .7 10 ;|
|00000750| 20 61 67 61 69 6e 20 6e | 65 65 64 65 64 20 6f 6e | again n|eeded on|
|00000760| 20 6d 79 20 30 36 30 20 | 6f 72 20 6c 6f 6f 70 20 | my 060 |or loop |
|00000770| 77 69 6c 6c 20 65 6e 64 | 20 62 65 66 6f 72 65 20 |will end| before |
|00000780| 63 6f 6d 70 6c 65 74 65 | 20 66 69 6c 65 00 00 20 |complete| file.. |
|00000790| 20 20 74 63 70 24 3d 52 | 65 61 64 54 43 50 7b 6d |  tcp$=R|eadTCP{m|
|000007a0| 61 78 73 69 7a 65 7d 20 | 3b 20 72 65 61 64 20 74 |axsize} |; read t|
|000007b0| 63 70 20 69 6e 63 6f 6d | 69 6e 67 20 62 75 66 66 |cp incom|ing buff|
|000007c0| 65 72 20 77 69 74 68 20 | 6d 61 78 6c 65 6e 67 68 |er with |maxlengh|
|000007d0| 74 20 6f 66 20 6d 61 78 | 73 69 7a 65 00 20 20 20 |t of max|size.   |
|000007e0| dd 81 20 74 63 70 24 00 | 20 20 80 bc 20 74 63 70 |.. tcp$.|  .. tcp|
|000007f0| 24 3d 22 22 00 00 20 20 | d2 02 00 20 20 fc 95 22 |$=""..  |...  .."|
|00000800| 52 65 63 65 69 76 65 64 | 20 22 2b dd 83 28 be 0a |Received| "+..(..|
|00000810| 28 30 29 29 2b 22 20 62 | 79 74 65 73 2e 22 2b dc |(0))+" b|ytes."+.|
|00000820| 86 28 31 30 29 00 20 20 | be 02 20 30 00 80 02 20 |.(10).  |.. 0... |
|00000830| 80 0b 00 00 80 07 00 00 | 00 00 00 2e 55 73 61 67 |........|....Usag|
|00000840| 65 00 80 06 20 45 6d 70 | 74 79 4c 69 6e 65 00 fc |e... Emp|tyLine..|
|00000850| 95 20 22 55 73 61 67 65 | 20 3a 20 42 6c 69 74 7a |. "Usage| : Blitz|
|00000860| 47 45 54 20 3c 68 74 74 | 70 3a 2f 2f 20 61 64 72 |GET <htt|p:// adr|
|00000870| 65 73 73 3e 20 3c 6f 75 | 74 66 69 6c 65 3e 22 2b |ess> <ou|tfile>"+|
|00000880| dc 86 28 31 30 29 00 80 | 06 20 45 6d 70 74 79 4c |..(10)..|. EmptyL|
|00000890| 69 6e 65 00 80 02 00 00 | 2e 4e 6f 5f 74 63 70 00 |ine.....|.No_tcp.|
|000008a0| 80 06 20 45 6d 70 74 79 | 4c 69 6e 65 00 fc 95 20 |.. Empty|Line... |
|000008b0| 22 4e 6f 20 49 50 2f 54 | 43 50 20 63 6f 6e 6e 65 |"No IP/T|CP conne|
|000008c0| 63 74 69 6f 6e 20 66 6f | 75 6e 64 21 22 2b dc 86 |ction fo|und!"+..|
|000008d0| 28 31 30 29 00 80 06 20 | 45 6d 70 74 79 4c 69 6e |(10)... |EmptyLin|
|000008e0| 65 00 80 02 00 00 00 2e | 4f 6e 6c 79 5f 68 74 74 |e.......|Only_htt|
|000008f0| 70 00 80 06 20 45 6d 70 | 74 79 4c 69 6e 65 00 fc |p... Emp|tyLine..|
|00000900| 95 20 22 49 6e 70 75 74 | 20 68 61 73 20 74 6f 20 |. "Input| has to |
|00000910| 73 74 61 72 74 20 77 69 | 74 68 20 48 54 54 50 3a |start wi|th HTTP:|
|00000920| 2f 2f 20 21 22 2b dc 86 | 28 31 30 29 00 80 06 20 |// !"+..|(10)... |
|00000930| 45 6d 70 74 79 4c 69 6e | 65 00 80 02 00 00 2e 4e |EmptyLin|e......N|
|00000940| 6f 74 5f 56 61 6c 69 64 | 00 80 06 20 45 6d 70 74 |ot_Valid|... Empt|
|00000950| 79 4c 69 6e 65 00 fc 95 | 20 22 4e 6f 74 20 61 20 |yLine...| "Not a |
|00000960| 76 61 6c 69 64 20 48 54 | 54 50 2f 31 2e 30 20 61 |valid HT|TP/1.0 a|
|00000970| 64 72 65 73 73 21 22 2b | dc 86 28 31 30 29 00 80 |dress!"+|..(10)..|
|00000980| 06 20 45 6d 70 74 79 4c | 69 6e 65 00 80 02 00 00 |. EmptyL|ine.....|
|00000990| 2e 41 6c 6c 72 65 61 64 | 79 00 80 06 20 45 6d 70 |.Allread|y... Emp|
|000009a0| 74 79 4c 69 6e 65 00 fc | 95 20 22 46 69 6c 65 20 |tyLine..|. "File |
|000009b0| 22 2b 6f 75 74 70 75 74 | 24 2b 22 20 65 78 69 73 |"+output|$+" exis|
|000009c0| 74 73 21 22 2b dc 86 28 | 31 30 29 00 80 06 20 45 |ts!"+..(|10)... E|
|000009d0| 6d 70 74 79 4c 69 6e 65 | 00 80 02 00 00 2e 45 6d |mptyLine|......Em|
|000009e0| 70 74 79 4c 69 6e 65 00 | fc 95 20 22 22 2b dc 86 |ptyLine.|.. ""+..|
|000009f0| 28 31 30 29 00 80 07 00 | 00 2e 4e 6f 53 65 72 76 |(10)....|..NoServ|
|00000a00| 65 72 00 fc 95 22 43 6f | 75 6c 64 20 6e 6f 74 20 |er..."Co|uld not |
|00000a10| 63 72 65 61 74 65 20 74 | 68 65 20 73 65 72 76 65 |create t|he serve|
|00000a20| 72 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 22 2b dc 86 |r connec|tion"+..|
|00000a30| 28 31 30 29 00 fc 95 20 | 22 43 6c 6f 73 69 6e 67 |(10)... |"Closing|
|00000a40| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 2e 22 2b dc 86 | connect|ion."+..|
|00000a50| 28 31 30 29 00 80 06 20 | 45 6d 70 74 79 4c 69 6e |(10)... |EmptyLin|
|00000a60| 65 00 43 6c 6f 73 65 54 | 43 50 7b 7d 20 3b 20 63 |e.CloseT|CP{} ; c|
|00000a70| 6c 6f 73 65 20 73 6f 63 | 6b 65 74 00 80 02 00    |lose soc|ket.... |
+--------+-------------------------+-------------------------+--------+--------+